home *** CD-ROM | disk | FTP | other *** search
/ Electronic Print Media Service 1993 July / Electronic Print Media Service 1993 July.iso / mac / image QUEST 2.1.5 / image QUEST EPMS07⁄93 / image QUEST EPMS07_93 / background_3776.xml next >
Extensible Markup Language  |  1993-04-30  |  46KB  |  454 lines
  1. <?xml version="1.0" encoding="utf-8" ?>
  2. <!DOCTYPE background PUBLIC "-//Apple, Inc.//DTD background V 2.0//EN" "" >
  3. <background>
  4.     <id>3776</id>
  5.     <filler1>0</filler1>
  6.     <bitmap>BMAP_3968.pbm</bitmap>
  7.     <cantDelete> <false /> </cantDelete>
  8.     <showPict> <true /> </showPict>
  9.     <dontSearch> <false /> </dontSearch>
  10.     <link rel="stylesheet" type="text/css" href="stylesheet_2086.css" />
  11.     <part>
  12.         <id>1</id>
  13.         <type>field</type>
  14.         <visible> <true /> </visible>
  15.         <dontWrap> <false /> </dontWrap>
  16.         <dontSearch> <false /> </dontSearch>
  17.         <sharedText> <false /> </sharedText>
  18.         <fixedLineHeight> <true /> </fixedLineHeight>
  19.         <autoTab> <false /> </autoTab>
  20.         <lockText> <false /> </lockText>
  21.         <rect>
  22.             <left>110</left>
  23.             <top>295</top>
  24.             <right>352</right>
  25.             <bottom>326</bottom>
  26.         </rect>
  27.         <style>scrolling</style>
  28.         <autoSelect> <false /> </autoSelect>
  29.         <showLines> <false /> </showLines>
  30.         <wideMargins> <false /> </wideMargins>
  31.         <multipleLines> <false /> </multipleLines>
  32.         <reservedFamily> 0 </reservedFamily>
  33.         <titleWidth>0</titleWidth>
  34.         <icon>0</icon>
  35.         <textAlign>center</textAlign>
  36.         <font>Geneva</font>
  37.         <textSize>9</textSize>
  38.         <textStyle>plain</textStyle>
  39.         <textHeight>12</textHeight>
  40.         <name>ref</name>
  41.         <script></script>
  42.     </part>
  43.     <part>
  44.         <id>20</id>
  45.         <type>field</type>
  46.         <visible> <true /> </visible>
  47.         <dontWrap> <false /> </dontWrap>
  48.         <dontSearch> <false /> </dontSearch>
  49.         <sharedText> <false /> </sharedText>
  50.         <fixedLineHeight> <true /> </fixedLineHeight>
  51.         <autoTab> <false /> </autoTab>
  52.         <lockText> <true /> </lockText>
  53.         <rect>
  54.             <left>393</left>
  55.             <top>4</top>
  56.             <right>506</right>
  57.             <bottom>17</bottom>
  58.         </rect>
  59.         <style>transparent</style>
  60.         <autoSelect> <false /> </autoSelect>
  61.         <showLines> <false /> </showLines>
  62.         <wideMargins> <false /> </wideMargins>
  63.         <multipleLines> <false /> </multipleLines>
  64.         <reservedFamily> 0 </reservedFamily>
  65.         <titleWidth>0</titleWidth>
  66.         <icon>0</icon>
  67.         <textAlign>center</textAlign>
  68.         <font>Geneva</font>
  69.         <textSize>9</textSize>
  70.         <textStyle>plain</textStyle>
  71.         <textHeight>12</textHeight>
  72.         <name>Flsz</name>
  73.         <script></script>
  74.     </part>
  75.     <part>
  76.         <id>32</id>
  77.         <type>field</type>
  78.         <visible> <true /> </visible>
  79.         <dontWrap> <false /> </dontWrap>
  80.         <dontSearch> <false /> </dontSearch>
  81.         <sharedText> <false /> </sharedText>
  82.         <fixedLineHeight> <true /> </fixedLineHeight>
  83.         <autoTab> <false /> </autoTab>
  84.         <lockText> <false /> </lockText>
  85.         <rect>
  86.             <left>0</left>
  87.             <top>20</top>
  88.             <right>512</right>
  89.             <bottom>33</bottom>
  90.         </rect>
  91.         <style>rectangle</style>
  92.         <autoSelect> <false /> </autoSelect>
  93.         <showLines> <false /> </showLines>
  94.         <wideMargins> <false /> </wideMargins>
  95.         <multipleLines> <false /> </multipleLines>
  96.         <reservedFamily> 0 </reservedFamily>
  97.         <titleWidth>0</titleWidth>
  98.         <icon>0</icon>
  99.         <textAlign>center</textAlign>
  100.         <font>Geneva</font>
  101.         <textSize>9</textSize>
  102.         <textStyle>plain</textStyle>
  103.         <textHeight>12</textHeight>
  104.         <name>fullpath</name>
  105.         <script>on mouseuphide bg fld fullpathend mouseup</script>
  106.     </part>
  107.     <part>
  108.         <id>33</id>
  109.         <type>button</type>
  110.         <visible> <true /> </visible>
  111.         <reserved5> 0 </reserved5>
  112.         <reserved4> 0 </reserved4>
  113.         <reserved3> 0 </reserved3>
  114.         <reserved2> 0 </reserved2>
  115.         <reserved1> 0 </reserved1>
  116.         <enabled> <true /> </enabled>
  117.         <rect>
  118.             <left>167</left>
  119.             <top>2</top>
  120.             <right>225</right>
  121.             <bottom>20</bottom>
  122.         </rect>
  123.         <style>transparent</style>
  124.         <showName> <true /> </showName>
  125.         <highlight> <false /> </highlight>
  126.         <autoHighlight> <false /> </autoHighlight>
  127.         <sharedHighlight> <false /> </sharedHighlight>
  128.         <family>0</family>
  129.         <titleWidth>0</titleWidth>
  130.         <icon>0</icon>
  131.         <textAlign>center</textAlign>
  132.         <font>Chicago</font>
  133.         <textSize>12</textSize>
  134.         <textStyle>plain</textStyle>
  135.         <name>Options</name>
  136.         <script>on mousedownset the hilite of me to trueput "Return To Navigator"┬¼&return&"Browse From Here"┬¼&return&"Indexed Image,File Location Info,Delete This Image,Add Cross-Reference"┬¼&return&"File Access,Copy File,Expand File,Display File,Launch File" into itemsput HPopupMenu(items,0,top of me +19,bottom of me+148) into junkset the hilite of me to falseput item 3 to 4 of junk into menuitemif menuitem = "1,0" thenset hilite of me to falsevisual zoom closego to card "control"end ifif menuitem = "2,0" thenset hilite of me to falserepeat until the mouseclickgo nextshow bg fld searchingPut "Click To Stop" into bg fld searchingwait 1 secondsPut "" into bg fld searchingif the short name of this card is "control" thenexit repeatend ifend repeathide bg fld searchingend ifif menuitem = "3,1" thenif the visible of bg fld fullpath = true thenput "The File Location Info is already present."repeat 5hide bg fld fullpathwait 30 ticksshow bg fld fullpathwait 30 ticksend repeathide msgexit mousedownend ifshow bg fld fullpathend ifif menuitem = "3,2" thenset hilite of me to falseanswer "Are you sure?" with OK or Cancelif it is "cancel" thenexit mousedownend ifdomenu "delete card"lock screengo nextgo prevunlock screenput "" into card field search of card controlput the number of cards -1 into word 4 of card field "size display" of card 1end ifif menuitem = "3,3" thenset hilite of me to falseput return after bg fld refrepeat 3show bg button pointerwait 30 tickshide bg button pointerwait 30 ticksend repeatclick at 209,320end ifif menuitem = "4,1" thenif bg fld fullpath contains "CMYK" thenput bg fld fullpath into holddelete last word of holdrepeat 12delete last char of holdend repeatput hold into sourceFolderask file ("Select destination & name.") with "CMYK Folder"put it into destpathif DestPath Γëá empty thenset cursor to busyput "Copying all CMYK files."CopyFolder sourceFolder,Destpathif the Result Γëá empty thenanswer the Resultelsehide msganswer "CMYK files copied successfully."end ifend ifgo card controlexit mousedownend ifput bg fld fullpath into sourceask file "Please enter file name."if it is empty then exit mousedownput it into destset the cursor to watchCreateCopy source, destif the result is not empty thenput "Please insert the proper diskette and choose Copy File again."repeat 7hide bg fld fullpathwait 30 ticksshow bg fld fullpathwait 30 ticksend repeathide msgexit mousedownend ifset the cursor to normalput "The file was copied successfully."wait 3 secondshide msgend ifif menuitem = "4,2" thenput word 1 of bg fld flsz into typeput "Please locate this file."get filename(type)hide msgend ifif menuitem = "4,3" thenset hilite of me to falseif bg fld flsz contains "TIFF" thenanswer "Can not display this file type."exit mousedownend ifput "Please locate the file to be displayed."put filename() into holdif hold is empty thenhide msgexit mousedownend ifput "5,21,484,291" into lastWindowput "1" into displayOrPrintlock screenset lockMessages to truedispArt hold,displayOrPrint,1,left,top,right,bottom,0,0,0put the result into XCMDanswerif xcmdAnswer contains "error" thenanswer "Sorry, unable to display file."else put xcmdAnswer into lastWindowopenCardhide msgend ifif menuitem = "4,4" thenset hilite of me to falseput "Please locate the file to be launched."put filename() into holdif hold is empty thenhide msgexit mousedownend ifopen hold with "the application"if it is "Cancel" thenhide msgexit mousedownend ifend ifend mousedown</script>
  137.     </part>
  138.     <part>
  139.         <id>40</id>
  140.         <type>field</type>
  141.         <visible> <false /> </visible>
  142.         <dontWrap> <false /> </dontWrap>
  143.         <dontSearch> <true /> </dontSearch>
  144.         <sharedText> <false /> </sharedText>
  145.         <fixedLineHeight> <true /> </fixedLineHeight>
  146.         <autoTab> <false /> </autoTab>
  147.         <lockText> <false /> </lockText>
  148.         <rect>
  149.             <left>398</left>
  150.             <top>236</top>
  151.             <right>507</right>
  152.             <bottom>252</bottom>
  153.         </rect>
  154.         <style>rectangle</style>
  155.         <autoSelect> <false /> </autoSelect>
  156.         <showLines> <false /> </showLines>
  157.         <wideMargins> <false /> </wideMargins>
  158.         <multipleLines> <false /> </multipleLines>
  159.         <reservedFamily> 0 </reservedFamily>
  160.         <titleWidth>0</titleWidth>
  161.         <icon>0</icon>
  162.         <textAlign>center</textAlign>
  163.         <font>Geneva</font>
  164.         <textSize>9</textSize>
  165.         <textStyle>plain</textStyle>
  166.         <textHeight>13</textHeight>
  167.         <name>searching</name>
  168.         <script></script>
  169.     </part>
  170.     <part>
  171.         <id>41</id>
  172.         <type>button</type>
  173.         <visible> <true /> </visible>
  174.         <reserved5> 0 </reserved5>
  175.         <reserved4> 0 </reserved4>
  176.         <reserved3> 0 </reserved3>
  177.         <reserved2> 0 </reserved2>
  178.         <reserved1> 0 </reserved1>
  179.         <enabled> <true /> </enabled>
  180.         <rect>
  181.             <left>44</left>
  182.             <top>2</top>
  183.             <right>73</right>
  184.             <bottom>20</bottom>
  185.         </rect>
  186.         <style>transparent</style>
  187.         <showName> <true /> </showName>
  188.         <highlight> <false /> </highlight>
  189.         <autoHighlight> <false /> </autoHighlight>
  190.         <sharedHighlight> <true /> </sharedHighlight>
  191.         <family>0</family>
  192.         <titleWidth>0</titleWidth>
  193.         <icon>0</icon>
  194.         <textAlign>center</textAlign>
  195.         <font>Chicago</font>
  196.         <textSize>12</textSize>
  197.         <textStyle>plain</textStyle>
  198.         <name>File</name>
  199.         <script>on mousedownset the hilite of me to trueif the number of this card >1  thenbeepanswer "The functions of the File Menu are only available at the Navigator Window."set the hilite of me to falseexit mousedownend ifput "Import,A File,A Folder"┬¼&return&"Merge,Monthly Module,I.Q. Index"┬¼&return&"Decompress,DiskDoublerΓäó,UnStuffItΓäó,ColorSqueezeΓäó"┬¼&return&"-("┬¼&return&"Categories,Add To,Delete From"┬¼&return&"Find Image,Whole Word,Partial Word,Multi-Word Search"┬¼&return&"-("┬¼&return&"Print Thumbnails,All Images,Initial Descriptions,Marked Favorites"┬¼&return&"-("┬¼&return&"Quit" into itemsput HPopupMenu(items,0,top of me +19,bottom of me+25) into junkset the hilite of me to falseput item 3 to 4 of junk into menuitemif menuitem = "1,1" thenimportfileend ifif menuitem = "1,2" thenimportfolderend ifif menuitem = "2,1" thenmergemoduleend ifif menuitem = "2,2" thenmergeoldiqend ifif menuitem = "3,1" thendecompressitend ifif menuitem = "3,2" thenopen UnStuffItΓäóend ifif menuitem = "3,3" thenopen ColorSqueezeΓäóend ifif menuitem = "5,1" thennewcatend ifif menuitem = "5,2" thendelcatend ifif menuitem = "6,1" thenfindkeyend ifif menuitem = "6,2" thenfindpartialend ifif menuitem = "6,3" thenMultiwordsearchend ifif menuitem = "8,1" thenunmark all cardslock screenhide bg pictshow bg fld menucovershow bg fld fullpathset the style of bg fld fullpath to opaqueset the style of bg fld ref to transparentset the loc of bg fld flsz to 224,284set the loc of bg fld fullpath to 256,316domenu "print stack..."show bg picthide bg fld menucoverset the style of bg fld fullpath to rectangleset the style of bg fld ref to scrollingset the loc of bg fld flsz to 449,10set the loc of bg fld fullpath to 256,26go card 1unlock screenend ifif menuitem = "8,2" thenif card field search = empty thenanswer "No favorites selected."exit mousedownend ifput "search" into card field whichfieldprintthumbsend ifif menuitem = "8,3" thenif card field favs = empty thenanswer "No favorites selected."exit mousedownend ifput "favs" into card field whichfieldprintthumbsend ifif menuitem = "10,0" thenset the hilite of me to falseAnswer "End image QUESTΓäó For Now?" with "YES" or "NO"if it is "no" thenexit mousedownend ifdomenu "Quit Hypercard"end ifend mousedown</script>
  200.     </part>
  201.     <part>
  202.         <id>42</id>
  203.         <type>button</type>
  204.         <visible> <true /> </visible>
  205.         <reserved5> 0 </reserved5>
  206.         <reserved4> 0 </reserved4>
  207.         <reserved3> 0 </reserved3>
  208.         <reserved2> 0 </reserved2>
  209.         <reserved1> 0 </reserved1>
  210.         <enabled> <true /> </enabled>
  211.         <rect>
  212.             <left>12</left>
  213.             <top>2</top>
  214.             <right>35</right>
  215.             <bottom>20</bottom>
  216.         </rect>
  217.         <style>transparent</style>
  218.         <showName> <false /> </showName>
  219.         <highlight> <false /> </highlight>
  220.         <autoHighlight> <true /> </autoHighlight>
  221.         <sharedHighlight> <false /> </sharedHighlight>
  222.         <family>0</family>
  223.         <titleWidth>0</titleWidth>
  224.         <icon>0</icon>
  225.         <textAlign>center</textAlign>
  226.         <font>Chicago</font>
  227.         <textSize>12</textSize>
  228.         <textStyle>plain</textStyle>
  229.         <name>About Index</name>
  230.         <script>on mousedownset the hilite of me to trueput line 1 of SysEnvironment("noDialog:errGlobal") into holdput offset (",",hold) into filedelete char 1 to file of holdput offset (",",hold) into fileput char 1 to file of hold into sysverdelete last char of sysverif char 1 of sysver = 6 thenput "About image QUESTΓäó,Compact Stack,Make New Index,-(" into theMenuItemsgetdanamesput namesofdas after theMenuItemsput hPopUpMenu (theMenuItems, 0, left of me+9, bottom of me-7) into junkput item 3 to 4 of junk into menuitemelseput "About image QUESTΓäó,Compact Stack" into theMenuItemsput hPopUpMenu (theMenuItems, 0, left of me+9, bottom of me-7) into junkput item 3 to 4 of junk into menuitemend ifif menuitem = "1,0" thenset the hilite of me to falseput the size of this stack into stacksizerepeat 3delete last char of stacksizeend repeatput "Images in index:" && the number of cards -1 into card field "size display" of card 1put "     Index size:" && stacksize & " K" after card field "size display" of card 1show card field "size display" of card 1savecolorstateput the result into resrepeat 2delete last char of resend repeatif res < 256 thenDispPict "lorestartup" ,0,1else DispPict "Hirestartup" ,0,1hide card field "size display" of card 1end ifif menuitem = "2,0" thenput "Shrinking size of index file."domenu "compact Stack"hide msgend ifif menuitem = "3,0" thenset the hilite of me to falseanswer "This will create a blank copy of Image QUESTΓäó on your hard drive." with "OK" or "Cancel"if it is "Cancel" then exit mousedowndomenu "copy card"lock screendomenu "new stack..."domenu "paste card"put "0" into bg field refgo card 1put "0" into bg field refdomenu "delete card"put "0" into bg field refput "" into card field searchput "" into card field favsput "" into bg field fullpathput "" into card field catunlock screenput "Now updating Navigator information."domenu "compact stack"hide msgexit mousedownend ifif item 1 of menuitem > 4 thenput item 1 of menuitem -2 into dadomenu item da of namesofdasend ifend mousedown</script>
  231.     </part>
  232.     <part>
  233.         <id>43</id>
  234.         <type>button</type>
  235.         <visible> <true /> </visible>
  236.         <reserved5> 0 </reserved5>
  237.         <reserved4> 0 </reserved4>
  238.         <reserved3> 0 </reserved3>
  239.         <reserved2> 0 </reserved2>
  240.         <reserved1> 0 </reserved1>
  241.         <enabled> <true /> </enabled>
  242.         <rect>
  243.             <left>84</left>
  244.             <top>2</top>
  245.             <right>113</right>
  246.             <bottom>20</bottom>
  247.         </rect>
  248.         <style>transparent</style>
  249.         <showName> <true /> </showName>
  250.         <highlight> <false /> </highlight>
  251.         <autoHighlight> <false /> </autoHighlight>
  252.         <sharedHighlight> <true /> </sharedHighlight>
  253.         <family>0</family>
  254.         <titleWidth>0</titleWidth>
  255.         <icon>0</icon>
  256.         <textAlign>center</textAlign>
  257.         <font>Chicago</font>
  258.         <textSize>12</textSize>
  259.         <textStyle>plain</textStyle>
  260.         <name>Edit</name>
  261.         <script>on mousedownset the hilite of me to trueif the number of this card >1  thenbeepanswer "The functions of the Edit Menu are only available at the Navigator Window."set the hilite of me to falseexit mousedownend ifput "Change Path Information"┬¼&return&"Delete All Images"┬¼&return&"Clear Marked Favorites"┬¼&return&"-("┬¼&return&"Upgrade..."┬¼&return&"Preferences,Browse Speed,Description Options" into itemsput HPopupMenu(items,0,left of me -63, bottom of me +65) into junkset the hilite of me to falseput item 3 to 4 of junk into menuitemif menuitem = "1,0" thenglobal errGlobalput FolderPath("Choose a folder.") into fldrpthif fldrpth = empty then exit mousedownput FolderContents(fldrpth, "Both", "noDialog:errGlobal") ┬¼into FldrCntsif errGlobal Γëá empty thenanswer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"put empty into errGlobalend ifput "Changing path information..."lock screenrepeat the number of lines of fldrcntsput line 1 of fldrpth into holdput line 1 of fldrcnts after holdput line 1 of fldrcnts into lookfind lookif the foundline is empty thenAnswer "Image" &&quote &look &quote && "not indexed." with "Continue"end ifput hold into bg fld fullpathput offset (":",hold) into fileput char 1 to file of hold into dskrepeatif hold contains ":" thenput offset (":",hold) into filedelete char 1 to file of holdelse exit repeatend repeatdelete line 1 of fldrcntsend repeatgo card 1unlock screenhide msgend ifif menuitem = "2,0" thendeleteallend ifif menuitem = "3,0" thenanswer "Are you sure you want to delete the Marked Favorites list?" with "OK" or "Cancel"if it is "Cancel" then exit mousedownput "" into card field favsend ifif menuitem = "5,0" thenfind whole "Upgrade"if the foundline is empty thenAnswer "There are no upgrades available at this time."exit mousedownend ifdo bg fld "fullpath"find whole "Upgrade"domenu "delete card"end ifif menuitem = "6,1" thenput "1 Second" into typesput return & "2 Seconds" after typesput return & "3 Seconds" after typesput return & "4 Seconds" after typesput return & "5 Seconds" after typesput ChooseSome (types,"Delay between images.") into holdput char 1 of hold into card field browsespeedend ifif menuitem = "6,2" thenif card field importops is empty thenput "Enter custom descriptions." into typesput return & "Default to file name." after typesput ChooseSome (types,"Select one.") into card field importopselseput "Description Option is currently set to" ┬¼&&quote & card field importops &quoteput "Enter custom descriptions." into typesput return & "Default to file name." after typesput ChooseSome (types,"Select one.") into card field importopshide msgend ifend ifend mousedown</script>
  262.     </part>
  263.     <part>
  264.         <id>44</id>
  265.         <type>button</type>
  266.         <visible> <true /> </visible>
  267.         <reserved5> 0 </reserved5>
  268.         <reserved4> 0 </reserved4>
  269.         <reserved3> 0 </reserved3>
  270.         <reserved2> 0 </reserved2>
  271.         <reserved1> 0 </reserved1>
  272.         <enabled> <true /> </enabled>
  273.         <rect>
  274.             <left>124</left>
  275.             <top>2</top>
  276.             <right>158</right>
  277.             <bottom>20</bottom>
  278.         </rect>
  279.         <style>transparent</style>
  280.         <showName> <true /> </showName>
  281.         <highlight> <false /> </highlight>
  282.         <autoHighlight> <false /> </autoHighlight>
  283.         <sharedHighlight> <true /> </sharedHighlight>
  284.         <family>0</family>
  285.         <titleWidth>0</titleWidth>
  286.         <icon>0</icon>
  287.         <textAlign>center</textAlign>
  288.         <font>Chicago</font>
  289.         <textSize>12</textSize>
  290.         <textStyle>plain</textStyle>
  291.         <name>View</name>
  292.         <script>on mousedownset the hilite of me to trueput "All Images"┬¼&return&"Initial Descriptions"┬¼&return&"Marked Favorites"┬¼&return&"News & Events"┬¼&return&"Tools,Navigation" into itemsput HPopupMenu(items,0,top of me +19,bottom of me+105) into junkset the hilite of me to falseput item 3 to 4 of junk into menuitemif menuitem = "1,0" thenbrowseallend ifif menuitem = "2,0" thenif card field search of card 1 is empty thenanswer "There are no images selected."exit mousedownend ifput "search" into card field whichfield of card 1browsemend ifif menuitem = "3,0" thenif card field favs of card 1 is empty thenanswer "There are no images selected."exit mousedownend ifput favs into card field whichfield of card 1browsemend ifif menuitem = "4,0" thenif the number of this card >1  thenbeepanswer "Please retern to the Navigator Window to view the News & Events marquee."set the hilite of me to falseexit mousedownend ifnewsend ifif menuitem = "5,1" thenpalette "Nav Tools", "399,264"end ifend mousedown</script>
  293.     </part>
  294.     <part>
  295.         <id>45</id>
  296.         <type>button</type>
  297.         <visible> <true /> </visible>
  298.         <reserved5> 0 </reserved5>
  299.         <reserved4> 0 </reserved4>
  300.         <reserved3> 0 </reserved3>
  301.         <reserved2> 0 </reserved2>
  302.         <reserved1> 0 </reserved1>
  303.         <enabled> <true /> </enabled>
  304.         <rect>
  305.             <left>358</left>
  306.             <top>300</top>
  307.             <right>374</right>
  308.             <bottom>316</bottom>
  309.         </rect>
  310.         <style>transparent</style>
  311.         <showName> <false /> </showName>
  312.         <highlight> <false /> </highlight>
  313.         <autoHighlight> <false /> </autoHighlight>
  314.         <sharedHighlight> <false /> </sharedHighlight>
  315.         <family>0</family>
  316.         <titleWidth>0</titleWidth>
  317.         <icon>0</icon>
  318.         <textAlign>center</textAlign>
  319.         <font>Chicago</font>
  320.         <textSize>12</textSize>
  321.         <textStyle>plain</textStyle>
  322.         <name>Next</name>
  323.         <script>on mouseUpvisual wipe up slowgo nextend mouseUp</script>
  324.     </part>
  325.     <part>
  326.         <id>46</id>
  327.         <type>button</type>
  328.         <visible> <true /> </visible>
  329.         <reserved5> 0 </reserved5>
  330.         <reserved4> 0 </reserved4>
  331.         <reserved3> 0 </reserved3>
  332.         <reserved2> 0 </reserved2>
  333.         <reserved1> 0 </reserved1>
  334.         <enabled> <true /> </enabled>
  335.         <rect>
  336.             <left>373</left>
  337.             <top>316</top>
  338.             <right>389</right>
  339.             <bottom>331</bottom>
  340.         </rect>
  341.         <style>transparent</style>
  342.         <showName> <false /> </showName>
  343.         <highlight> <false /> </highlight>
  344.         <autoHighlight> <false /> </autoHighlight>
  345.         <sharedHighlight> <false /> </sharedHighlight>
  346.         <family>0</family>
  347.         <titleWidth>0</titleWidth>
  348.         <icon>0</icon>
  349.         <textAlign>center</textAlign>
  350.         <font>Chicago</font>
  351.         <textSize>12</textSize>
  352.         <textStyle>plain</textStyle>
  353.         <name>Prev</name>
  354.         <script>on mouseUpvisual wipe down slowgo prevend mouseUp</script>
  355.     </part>
  356.     <part>
  357.         <id>47</id>
  358.         <type>field</type>
  359.         <visible> <false /> </visible>
  360.         <dontWrap> <false /> </dontWrap>
  361.         <dontSearch> <false /> </dontSearch>
  362.         <sharedText> <false /> </sharedText>
  363.         <fixedLineHeight> <false /> </fixedLineHeight>
  364.         <autoTab> <false /> </autoTab>
  365.         <lockText> <false /> </lockText>
  366.         <rect>
  367.             <left>38</left>
  368.             <top>2</top>
  369.             <right>254</right>
  370.             <bottom>19</bottom>
  371.         </rect>
  372.         <style>opaque</style>
  373.         <autoSelect> <false /> </autoSelect>
  374.         <showLines> <false /> </showLines>
  375.         <wideMargins> <false /> </wideMargins>
  376.         <multipleLines> <false /> </multipleLines>
  377.         <reservedFamily> 0 </reservedFamily>
  378.         <titleWidth>0</titleWidth>
  379.         <icon>0</icon>
  380.         <textAlign>left</textAlign>
  381.         <font>Geneva</font>
  382.         <textSize>12</textSize>
  383.         <textStyle>plain</textStyle>
  384.         <textHeight>16</textHeight>
  385.         <name>menucover</name>
  386.         <script></script>
  387.     </part>
  388.     <part>
  389.         <id>48</id>
  390.         <type>button</type>
  391.         <visible> <false /> </visible>
  392.         <reserved5> 0 </reserved5>
  393.         <reserved4> 0 </reserved4>
  394.         <reserved3> 0 </reserved3>
  395.         <reserved2> 0 </reserved2>
  396.         <reserved1> 0 </reserved1>
  397.         <enabled> <true /> </enabled>
  398.         <rect>
  399.             <left>90</left>
  400.             <top>305</top>
  401.             <right>122</right>
  402.             <bottom>322</bottom>
  403.         </rect>
  404.         <style>transparent</style>
  405.         <showName> <false /> </showName>
  406.         <highlight> <false /> </highlight>
  407.         <autoHighlight> <false /> </autoHighlight>
  408.         <sharedHighlight> <false /> </sharedHighlight>
  409.         <family>0</family>
  410.         <titleWidth>0</titleWidth>
  411.         <icon>29484</icon>
  412.         <textAlign>center</textAlign>
  413.         <font>Chicago</font>
  414.         <textSize>12</textSize>
  415.         <textStyle>plain</textStyle>
  416.         <name>pointer</name>
  417.         <script></script>
  418.     </part>
  419.     <part>
  420.         <id>50</id>
  421.         <type>field</type>
  422.         <visible> <false /> </visible>
  423.         <dontWrap> <false /> </dontWrap>
  424.         <dontSearch> <false /> </dontSearch>
  425.         <sharedText> <false /> </sharedText>
  426.         <fixedLineHeight> <false /> </fixedLineHeight>
  427.         <autoTab> <false /> </autoTab>
  428.         <lockText> <false /> </lockText>
  429.         <rect>
  430.             <left>398</left>
  431.             <top>36</top>
  432.             <right>507</right>
  433.             <bottom>235</bottom>
  434.         </rect>
  435.         <style>scrolling</style>
  436.         <autoSelect> <false /> </autoSelect>
  437.         <showLines> <false /> </showLines>
  438.         <wideMargins> <false /> </wideMargins>
  439.         <multipleLines> <false /> </multipleLines>
  440.         <reservedFamily> 0 </reservedFamily>
  441.         <titleWidth>0</titleWidth>
  442.         <icon>0</icon>
  443.         <textAlign>left</textAlign>
  444.         <font>Geneva</font>
  445.         <textSize>9</textSize>
  446.         <textStyle>plain</textStyle>
  447.         <textHeight>12</textHeight>
  448.         <name>notes</name>
  449.         <script></script>
  450.     </part>
  451.     <name>navback</name>
  452.     <script>on dispPictError initialHandler, xcmdAnswer, whichFileif xcmdAnswer contains "File not found" thenaddThisPath initialHandlerend ifif xcmdAnswer contains "Not enough memory" thendialogIt "There is not enough memory to open the file" &&quote& ┬¼whichFile &quote& "."end ifif xcmdAnswer contains "user cancelled operation" then--the user hit command-period to cancelend ifend dispPICTerroron returntonavvisual zoom closego card 1end returntonavon importFilego to card 1put "PAINT" into typesput return & "PICT" after typesput return & "EPS" after typesput ChooseSome (types,"File Format?") into formatif format is empty then exit importfileif format is "PAINT" thenput "PNTG" into typeend ifif format is "PICT" thenput "PICT" into typeend ifif format is "EPS" thenput "EPSF" into typeend ifif format is "TIFF" thenput "TIFF" into typeend ifput "Description Option is currently set to" ┬¼&&quote & card field importops &quoteput filename(type) into holdif hold is empty thenif the short name of this card = "control" thenhide msgexit importFileend ifend ifput "Importing image(s)."lock screengo last cardtype "N" with commandkeyset lockMessages to truetinyPICT Hold,200,200put the result into xcmdAnswerif xcmdAnswer contains "error" thendispPictError "displayTiny",xcmdAnswer,whichPathopenCardreturn xcmdAnswerexit importFileend iftype "V" with commandKeydrag from 0,00 to 150,60choose browse toolunlock screenput FileSize(hold, "nodialog:errGlobal") into fsput hold into bg fld fullpathput offset (":",hold) into filerepeat 3delete last char of fsend repeatput type && "File is" && fs && "K" into background fld flszunlock screenhide msgput the number of cards -1 into numcrdsput the size of this stack into stacksizerepeat 3delete last char of stacksizeend repeatput "Images in index:" && numcrds into card fld "size display" of card 1put "    Index size:" && stacksize && "K" after card fld "size display" of card 1if card field importops of card 1 contains "enter custom descriptions." thenrepeat until the mouseclickwait 20 ticksput "" into bg fld refwait 20 ticksput "Click here to enter image description." into bg fld refwait 20 ticksend repeatput "" into bg fld refclick at 211,298end ifif card field importops of card 1 contains "default to file name." thenrepeatif hold contains ":" thenput offset (":",hold) into filedelete char 1 to file of holdelse exit repeatend repeatput hold into bg fld refend ifend importFileon importfolderglobal errGlobalput "Description Option is currently set to" ┬¼&&quote & card field "importops"  &quoteput FolderPath("Choose a folder to import.") into fldrpthif fldrpth = empty then exit importfolderput FolderContents(fldrpth, "Both", "noDialog:errGlobal") ┬¼into FldrCntsif errGlobal Γëá empty thenanswer "Error: ΓÇ£" & errGlobal & "ΓÇ¥"put empty into errGlobalend ifput line 1 of fldrpth into holdput line 1 of fldrcnts after holdput the number of lines of fldrcnts into repsput "Importing image(s)."lock screenrepeat repsput FileType(hold) into formatif format = "EPSF" or format = "PICT" or format = "PNTG" thengo last cardtype "N" with commandkeytinyPICT Hold,200,200put the result into xcmdAnswerif xcmdAnswer contains "error" thendispPictError "displayTiny",xcmdAnswer,whichPathopenCardreturn xcmdAnswerexit importfolderend iftype "V" with commandKeydrag from 0,00 to 150,60choose browse toolput FileSize(hold, "nodialog:errGlobal") into fsput hold into bg fld fullpathrepeat 3delete last char of fsend repeatput format && "File is" && fs && "K" into background fld flszunlock screenif card field importops of card 1 contains "default to file name." thenput hold into keeprepeatif keep contains ":" thenput offset (":",keep) into filedelete char 1 to file of keepelse exit repeatend repeatput keep into bg fld refend ifif card field importops of card 1 contains "enter custom descriptions." thenwait 2 secondsask "Please enter an image description."put it into bg fld refend ifdelete line 1 of fldrcntsput "" into holdput line 1 of fldrpth into holdput line 1 of fldrcnts after holdlock screenend ifend repeatput the number of cards -1 into numcrdsput the size of this stack into stacksizerepeat 3delete last char of stacksizeend repeatput "Images in index:" && numcrds into card fld "size display" of card 1put "    Index size:" && stacksize && "K" after card fld "size display" of card 1hide msggo card 1unlock screenend importfolderon browseallput card field browsespeed of card 1 into secsgo card 1repeat until the mouseclickgo nextshow bg fld searchingput "Click to stop." into bg fld searchingwait secs secondsput "" into bg fld searchingif the short name of this card is "control" thenexit repeatend ifend repeathide bg fld searchingend browseallon browsemput card field browsespeed of card 1 into secslock screengo card 1put card field whichfield of card 1 into hoput card field ho into howmanygo nextrepeat --until the mouseclickfind string line 1 of howmanyput the number of this card into cardnounlock screenshow bg fld searchingput "Click to stop." into bg fld searchingwait secs secondsput "" into bg fld searchingdelete line 1 of howmanylock screengo card 1go nextif howmany is empty thengo card 1exit repeatend ifif the mouse is down thengo card cardnoexit repeatend ifend repeathide bg fld searchingclick at 500,500end browsemon mergemoduleglobal destination,sourceput the long name of this stack into destinationput "" into sourcerepeat until source contains "module"put "Insert the module disk and select the monthly module."put filename("STAK") into sourceif source is empty thenhide msgexit mergemoduleend ifif "Module" is not in source thenanswer "That's not an image module. Please try again."end ifput source into hangput offset (":",hang) into volend repeatgo to card 1hide msglock screengo to card 1 of stack sourceput the number of cards into cardcountput bg fld fullpath into dupego first card of destinationfind string dupe in bg fld fullpathif the foundline is not empty thengo card 1answer "This module has already been merged!"exit mergemoduleend ifgo to stack sourceput card field marqueeinfo into infoput card field cats into newcatsrepeat with i = 1 to the number of cardsset cursor to busyput "Now merging info for image " & cardcount & "."put bg fld ref into descput bg fld flsz into typensizeput bg fld fullpath into bigwherechoose select tooldomenu select alldomenu "copy picture"go next cardpush cardgo last card of destinationtype "N" with commandkeydomenu "paste picture"domenu "transparent"put desc into bg fld refput typensize into bg fld flszput bigwhere into bg fld fullpathgo last card of destinationpop cardsubtract 1 from cardcountend repeatchoose browse toolgo first card of destinationput "Now updating categories."repeat the number of lines in newcatsfind line 1 of newcats in card field catif the foundline is empty thenput return & line 1 of newcats after card field catdelete line 1 of newcatselsedelete line 1 of newcatsend ifend repeatalphaunlock screenset the locktext of card field cat to falserepeat with i=1 to the number of lines of card field catGET char 1 of line i of card field catSELECT char 1 of line i of card field catif it is "a" then type "A"if it is "b" then type "B"if it is "c" then type "C"if it is "d" then type "D"if it is "e" then type "E"if it is "f" then type "F"if it is "g" then type "G"if it is "h" then type "H"if it is "i" then type "I"if it is "j" then type "J"if it is "k" then type "K"if it is "l" then type "L"if it is "m" then type "M"if it is "n" then type "N"if it is "o" then type "O"if it is "p" then type "P"if it is "q" then type "Q"if it is "r" then type "R"if it is "s" then type "S"if it is "t" then type "T"if it is "u" then type "U"if it is "v" then type "V"if it is "w" then type "W"if it is "x" then type "X"if it is "y" then type "Y"if it is "z" then type "Z"end repeatset the locktext of card field cat to trueset the scroll of card field cat to 0choose the browse toolclick at 500,500put the number of cards -1 into numcrdsput the size of this stack into stacksizerepeat 3delete last char of stacksizeend repeatput "Images in index:" && numcrds into card fld "size display"put "    Index size:" && stacksize && "K" after card fld "size display"put info into card field info2put "Merge process complete."wait 2 secondshide msgEjectDisk hang, "noDialog:errGlobal"end mergemoduleon newcatAsk "Enter new category."if it is "" thenexit newcatend ifif it is "Cancel" thenexit newcatend ifput return & it after card field catalphafind whole it in card field catwait 1 secondclick at 500,500end newcaton delcatask "Enter category to delete."if it is "" thenexit delcatend ifif it is "Cancel" thenexit delcatelsefind whole it in card field catif the foundline is empty thenanswer "Sorry!" &&quote &it &quote && "is not in the current list of categories."elsedelete the foundlineend ifend ifend delcaton findkeygo card 1ask "Please enter a key word(s)."if it is "" then exit findkeyput it into card field checkitput "" into card field searchput "One moment please. . ."lock screenfind whole itif the foundline is empty thenhide msgAnswer "Sorry, can't find" &&quote &it &quoteexit findkeyend ifput the number of lines of card field search of card ┬¼"control" into requestgo nextif bg fld "ref" contains it thenadd 1 to requestput line 1 of bg fld "ref" of card 2 into card field search of card controlend ifrepeat until the number of this card is 1add 1 to requestgo nextfind whole itif the short name of this card contains "control" thenwait 20 tickselseput line 1 of bg fld "ref" into line request ┬¼of card field search of card "control"end ifend repeatclick at 500,500hide msgunlock screenif card field search = "" thengo to card 1Answer "Sorry, can't find" &&quote &it &quoteend ifend findkeyon findpartialask "Please enter a key word(s)."if it is "" then exit findpartialput it into card field checkitput "" into card field searchput "One moment please. . ."lock screenfind string itif the foundline is empty thenhide msgAnswer "Sorry, can't find" &&quote &it &quoteexit findpartialend ifput the number of lines of card field search of card ┬¼"control" into requestgo nextif bg fld "ref" contains it thenadd 1 to requestput line 1 of bg fld "ref" of card 2 into card field search of card controlend ifrepeat until the number of this card is 1add 1 to requestgo nextfind string itif the short name of this card contains "control" thenwait 20 tickselseput line 1 of bg fld "ref" into line request ┬¼of card field search of card "control"end ifend repeatclick at 500,500hide msgunlock screenif card field search = "" thengo to card 1Answer "Sorry, can't find" &&quote &it &quoteend ifend findpartialon Alphaput AlphaSort(card field cat) into card field catend Alphaon printthumbsunmark all cardsget card field whichfieldput card field it of card 1 into holdlock screenrepeat the number of lines of holdgo nextfind string line 1 of holdif the number of this card = 1 thenwait 20 tickselsemark this cardhide bg pictshow bg fld menucovershow bg fld fullpathset the style of bg fld fullpath to opaqueset the style of bg fld ref to transparentset the loc of bg fld flsz to 224,284set the loc of bg fld fullpath to 256,316end ifdelete line 1 of holdgo card 1end repeatdomenu "print stack..."show bg picthide bg fld menucoverset the style of bg fld fullpath to rectangleset the style of bg fld ref to scrollingset the loc of bg fld flsz to 449,10set the loc of bg fld fullpath to 256,26go card 1unmark all cardsunlock screenend printthumbson newsset the style of card field marquee to opaqueput card field info2 into card field marqueerepeat the number of chars in card field marqueeif the mouse is down thenput "" into card field marqueeset the style of card field marquee to transparentexit newsend ifwait 4 ticksdelete char 1 of card field marqueeend repeatwait 30 ticksset the style of card field marquee to transparentend newson toolboxbrowseanswer "Browse..." with "All" or "Initial" or "Favorites"if it is "all" then browseallif it is "initial" then put "initial" into card field whichfieldif it is "favorites" then browsefavsend toolboxbrowseon toolboximportanswer "Import..." with "File" or "Folder" or "Cancel"if it is "File" then importfileif it is "folder" then importfolderif it is "cancel" then exit toolboximportend toolboximporton notesif the number of this card = 1 thenexit notesend ifput "***  NOTES ***" into line 1 of bg fld notesif the visible of bg fld notes = false thenshow bg fld noteselse hide bg fld notesend noteson gomonthput "Designer's Club" after typesput return & "Electronic Clipper" after typesput return & "Electronic PMS" after typesput ChooseSome (types,"Choose which product to search.") into itif it is "" thenexit gomonthend ifif it is "Designer's Club" thenput DC into productend ifif it is "Electronic Clipper" thenput EC into productend ifif it is "Electronic PMS" thenput EPMS into productend ifanswer "Select media to search." with "Diskette" or "CD-ROM"if it is "Diskette" thenlock screenput "January" into typesput return & "February" after typesput return & "March" after typesput return & "April" after typesput return & "May" after typesput return & "June" after typesput return & "July" after typesput return & "August" after typesput return & "September" after typesput return & "October" after typesput return & "November" after typesput return & "December" after typesput ChooseSome (types,"Choose a month.") into monthif month is empty thenexit gomonthend ifask "What year?"if the number of chars in it > 2 thenrepeat 2delete char 1 of itend repeatend ifput " '" & it after monthput product & " " before monthgo card 1find whole monthif the foundline is empty thenrepeat until the number of chars in word 2 of month = 4delete last char of word 2 of monthend repeatfind whole monthend ifif the foundline is empty thenrepeat until the number of chars in word 2 of month = 3delete last char of word 2 of monthend repeatfind whole monthend ifif the foundline is empty thenanswer "Sorry! Can't find that month and year."end ifclick at 500,500unlock screenend ifif it is "CD-ROM" thenlock screenput "01" into typesput return & "02" after typesput return & "03" after typesput return & "04" after typesput return & "05" after typesput return & "06" after typesput return & "07" after typesput return & "08" after typesput return & "09" after typesput return & "10" after typesput return & "11" after typesput return & "12" after typesput ChooseSome (types,"Choose an issue.") into monthif month is empty thenexit gomonthend ifask "What year?"if the number of chars in it > 2 thenrepeat 2delete char 1 of itend repeatend ifput "/" & it after monthput product before monthgo card 1find whole monthif the foundline is empty thenanswer "Sorry! Can't find that month and year."end ifclick at 500,500unlock screenend ifend gomonthon multiwordsearchput "" into card field searchAsk "Enter primary subject."put it into firstsearchput it into card field checkitAsk "Enter secondary subject."put it into secondsearchput "One moment please. . ."lock screenset lockmessages to truefind whole firstsearchif the foundline is empty thenanswer "No matches found!"hide msgexit multiwordsearchend ifput the foundline into selectput the number of lines of card field search of card ┬¼"control" into requestgo nextif bg fld "ref" contains firstsearch thenadd 1 to requestput line 1 of bg fld "ref" of card 2 into card field search of card controlend ifrepeat until the number of this card is 1add 1 to requestgo nextfind whole firstsearchif the short name of this card contains "control" thenwait 20 tickselseput line 1 of bg fld "ref" into line request ┬¼of card field search of card "control"end ifend repeatrepeatfind secondsearch in card field searchif the foundline is empty then exit repeatput the foundline into selectselect the foundlineput return & the selectedtext after holderdelete selectend repeatput holder into card field searchdelete line 1 of card field searchif card field search is empty thenanswer "No matches found!"hide msgexit multiwordsearchend ifclick at 500,500hide msgset lockmessages to falseunlock screenend multiwordsearchon mergeoldiqglobal destination,sourceput the long name of this stack into destinationput "" into sourceput "Select your IQ Index."put filename(STAK) into sourceif source is empty thenhide msgexit mergeoldiqend ifgo to card 1hide msglock screengo to card 2 of stack sourceput "" into noscriptset the script of this stack to noscriptput the number of cards -1 into cardcountput item 1 to 2 of bg fld fullpath into dupego first card of destinationfind whole dupe in bg fld fullpathif the foundline is not empty thengo card 1answer "Some images from the previous index have already been merged!"answer "Delete duplicate images from previous index and merge again."exit mergeoldiqend ifgo card 2 of stack sourceput card field cat of card 1 into newcatsrepeat with i = 1 to cardcountset cursor to busyput "Merging info for image " & cardcount & "."put bg fld ref into descput bg fld flsz into typensizeput bg fld fullpath into bigwherechoose select tooldomenu select alldomenu "copy picture"go next cardpush cardgo last card of destinationtype "N" with commandkeydomenu "paste picture"domenu "transparent"put desc into bg fld refput typensize into bg fld flszput bigwhere into bg fld fullpathgo last card of destinationpop cardsubtract 1 from cardcountend repeatchoose browse toolgo first card of destinationput "Now updating categories."repeat the number of lines in newcatsfind line 1 of newcats in card field catif the foundline is empty thenput return & line 1 of newcats after card field catdelete line 1 of newcatselsedelete line 1 of newcatsend ifend repeatalphaunlock screenhide msgclick at 500,500put the number of cards -1 into numcrdsput the size of this stack into stacksizerepeat 3delete last char of stacksizeend repeatput "Images in index:" && numcrds into card fld "size display"put "    Index size:" && stacksize && "K" after card fld "size display"put "Merge process complete."wait 2 secondshide msgend mergeoldiqon gonextfavif card fld favs of card 1 = empty thenanswer "The Marked Favorites field is empty."exit gonextfavend ifif the number of this card = 1 thenput 1 into card fld tracerlock screenfind string line card fld tracer of card field favs in bg fld refunlock screenelselock screengo card 1add 1 to card field tracerfind string line card fld tracer of card field favs in bg fld refend ifend gonextfavon goprevfavif card fld favs of card 1 = empty thenanswer "The Marked Favorites field is empty."exit goprevfavend ifif the number of this card = 1 thenput the number of lines of card field favs into card fld tracerlock screenfind string line card fld tracer of card field favs in bg fld refunlock screenelselock screengo card 1subtract 1 from card field tracerfind string line card fld tracer of card field favs in bg fld refend ifend goprevfavon deleteallanswer "Delete all " & the number of cards - 1 & " images?" with YES or Noif it is "No" thenexit deleteallend ifif it is "yes" thenanswer "This proceedure will delete all information from the index! Do you wish to continue?" with "YES" or "NO"if it is "No" thenexit deleteallend ifend ifput "Please Wait... deleting all images."lock screenrepeat for the number of cardsif the short name of this card is "control" thengo nextelseset cursor to busydoMenu "Delete Card"end ifend repeatunlock screenput "" into card field searchput "" into card field catput "" into card field favsput the number of cards -1 into numcrdsput the size of this stack into stacksizerepeat 3delete last char of stacksizeend repeatput "Images in index:" && numcrds into card fld "size display"put "    Index size:" && stacksize && "K" after card fld "size display"domenu "compact stack"hide msgend deleteallon decompressitput "PAINT" into typesput return & "PICT" after typesput return & "EPS" after typesput return & "TIFF" after typesput ChooseSome (types,"File Format?") into formatif format is empty then exit decompressitif format is "PAINT" thenput "PNTG" into typeend ifif format is "PICT" thenput "PICT" into typeend ifif format is "EPS" thenput "EPSF" into typeend ifif format is "TIFF" thenput "TIFF" into typeend ifput filename(type) into holdif hold is empty thenif the short name of this card = "control" thenhide msgexit decompressitend ifend ifend decompressit</script>
  453. </background>
  454.